Top 10k strings from Unifile v2 (1982)(Individual Software Service).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
10 $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4 o$="geschrieben"
4 o$="eingelesen"
4 d(f$(feld,26
4
4
3 unifile
3 i$=j$+" "
3 "Wollen Sie eine Ueberpruefung der Daten ? (J/N) ";
2 feld=feld+1
2 d(f$(feld,28
2 ;"Spalte: ";ps
2 )="J")+l$(
2 "Sind alle Eingaben OK ? (J/N)";
2 "Hardcopy (J/N) ";
2 "''" Bitte Auswahlnummer eingeben"
2 1984 by K. Reger
2 UNIFILE Version 2.0
2
1 x1=x+(y1>32
1 satz=satz+1
1 satz=satz+(w1=w)
1 s$=s$+"******"
1 l$="--------------------------------"
1 iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
1 i$=j$+i$+" "
1 i$=i$+" "
1 i$="08")+("p"
1 i$=""+("s"
1 geschriebenI
1 free=free-(free>2
1 eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
1 a$(satz)=a$(free)
1 a$(i)=a$(l):
1 VORSPANN .
1 UNIFILE VERSION 2.0 48 K --------------------------------
1 S O R T laeuft... Bitte warten
1 NUMERISCHES FELD NUR 0-9
1 MASKE+FILE
1 Laenge maximal 4-stellig !!
1 LESEN FELDBESCHREIBUNG
1 ISS-LOGO
1 FALSCHE TASTE !
1 EINGABEZWANG !!
1 Created with Ramsoft MakeTZX
1 ;"Zeile: ";pz
1 ;"Unifile Version 2.0 ",l$(1
1 ;"UNIFILE 2.0 Drucklistenformat ";d$'l$(
1 ;"UNIFILE 2.0 Bildschirmformat "'d$'l$(
1 ;"Teil Nr.: ";i-1
1 ;"Suchbegriff: -----";
1 ;"Sortieren nach:"
1 ;"Numerisches Feld max. 6-stellig":
1 ;"Maske: "'e$
1 ;"Laenge: ";
1 ;"LISTENBESCHREIBUNG UNIFILE 2.0";L$(
1 ;"IST DIE LOESCHUNG OK ? (J/N)";
1 ;"Feldlaenge: ";fl
1 ;"Feldbezeichnung (^=ENDE):",e$
1 ;"Feldart (A/N): ";a$
1 ;"Feld Nr.: ";i-1
1 ;"Feld Nr.: ";fnr;
1 ;"Eingabezwang (J/N) :";z$
1 ;"Datei zu Ende!!!!":
1 ;"CR nach Maske: (J/N) ? ";c$
1 ;"00 GRUNDMENUE"'"01"'"02"'"03 LESEN Datei"'"04 SCHREIBEN Datei"'"05"'"06"
1 ;"00 ENDE Unifile"'"01"'"02 NEUANLAGE Datensaetze"'"03"'"04 AENDERUNG Datensaetze"'"05"'"06 LOESCHUNG Datensaetze"
1 ;"*** E N D E ***"
1 ;" Suchen nach : ";feld
1 ;" FELDBESCHREIBUNG UNIFILE 2.0 ";l$(
1 ;" Suchbegriff: ";s$(1
1 ;" **** E N D E *****"
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 18 16 Schreiben aller Daten
1 18 15 Lesen aller Daten
1 18 12 Schreiben Listenbeschreib.
1 18 11 Lesen Listenbeschreibung
1 18 08 Schreiben Feldbeschreibung
1 18 07 Lesen Feldbeschreibung
1 18 04 Schreiben Datei
1 18 03 Lesen Datei
1 18 MAGNETBAND E/A OPERATIONEN--------------------------------
1 --------------------------------J
1 );" 0=ENDE NR=SATZ W=WEITER ");w1
1 )+(f$(i,31
1 )*(f$(i,31
1 )'' "TNR FNR"'"FELDBEZEICHNUNG"'L$(
1 )'' "FLD ZL SP A FELDBEZEICHNUNG LG E C "'L$(
1 (free/(z+1
1 ("Maske: "'l$(
1 ("Feldbezeichnung (^=ENDE):",l$(
1 ("Dateiname:"'l$(1
1 '''''''''"Nun kann das Hauptprogramm geladen werden... Druecken Sie irgendeine Taste und starten Sie das Band."
1 ''"Es stehen ";free;" Bytes zur","Verfuegung."
1 "unifile":
1 "Zeile: ";pz
1 "Wie viele Drucklistenformate: ";df
1 "UNIFILE ist nun generiert, nun wird das Programm geSAVEd"
1 "Sollen die Daten gleichzeitig mit dem Programm geladen werden (J/N) ? ";
1 "Satz Nr: ";:
1 "Feldlaenge: ";fl
1 "Feldart (A/N): ";
1 "Feld Nr.: ";fnr
1 "Feld / Listenbeschreibung auf Drucker ? (J/N) ";
1 "Es koennen ";sa;" Satze ","angelegt werden."
1 "Eingabezwang (J/N) :";
1 "Die Datei """;i$;""" wird nun"'o$;":"'''''"Bitte starten Sie das Band."
1 "CR nach Maske: (J/N) ? ";
1 "Bitte geben Sie den Dateinamen ein : ____";
1 "Anzahl der Felder pro Satz:
1 "14"'"15 LESEN aller Daten"'"16 SCHREIBEN aller Daten"'"17"'"18"
1 "13"'"14 AUSGABE Datensatz Druck 15"'"16 SORTIEREN Datensaetze"'"17"'"18 MAGNETBAND E/A Operationen"
1 "07"'"08 AUSGABE Liste Bildschirm09"'"10 AUSGABE Datensatz Bilds.11"'"12 AUSGABE Liste Drucker"
1 "07 LESEN Feldbeschreibung"'"08 SCHREIBEN Feldbeschreibung"'"09"'"10"'"11 LESEN Listenbeschreibung"'"12 SCHREIBEN Listenbeschreibung13"
1 z
1 L